(*Цель работы:получение навыков учета метролоческих характеристик измерительных приборов и параметров измеряемого сигнала при проведении прецизионных электрических измерений.
Вариант 13*)

(*Условия измерения:Напряжение сети,В*)
Uсети=207.4;

(*Температура окружающей среды,°С*)
Tокруж=25.5;

(*Интервал времени после калибровки
опорного источника прибора,мес*)
t=0.5;

(*Характеристики измеряемого сигнала:Измеренное значение напряжения,В*)
Uизмер=5;

(*Размах напряжения шумов
в диапазоне частот (0,1... 10) Гц,В*)
Uшума=0.51;

(*Частота, на которой задан размах переменной составляющей напряжения, Гц*)
f=500;

(*Размах напряжения переменной
составляюшей на высокой частоте, В*)
Uпеременной=0.25;

Дальше ничего менять не надо

(*Если Uшума+Uпеременной>0.05, то берем 100 В
Если меньше, то 10, из-за неравенства Uшума+Uпеременной<0.05 Uпредел*)
If[(Uшума+Uпеременной)>0.5,Uпредел=100,Uпредел=10]

(*предельное значение установленного поддиапазона,В*)
UпределДиап=1.2*Uпредел;

(*коэффициент подавления помех последовательного вида,дБ*)
KподавлПомехПослед=50;

(*коэффициент подавления помех параллельного вида,дБ на частоте 50 Гц*)
KподавлПомехПарал=120;

(*1) Погрешность нелинейности относительно меры напряжения.*)
If[Uпредел==10,k1=0.003,k1=0.001]
ScientificForm[ΔUнелинейн=(k1*(Uизмер/100)+0.00006*(UпределДиап/100))*(t/2)]

(*2) Предел основной погрешности:*)
If[Uпредел==10,k2=0.001,k2=0.0015]
ScientificForm[ΔUосновной=k2*Uизмер/100+0.00006*UпределДиап/100]

(*3) Погрешность некалибровки опорного источника (t<3):*)
If[Uпредел==10 ,If[t≤3,k3=0.0015, k3=0.004],If[t≤3,k3=0.002, k3=0.005]]
ScientificForm[ΔUкалибровки=k3*Uизмер/100+0.00006*UпределДиап/100]

(*4) Погрешность температурного режима измерения:*)
If[Uпредел==10,k4=0.00001,k4=0.00003]
ScientificForm[ΔUтемпер=(k4*(Uизмер/100)+0.000003*(UпределДиап/100))*(Tокруж-25)]

(* Изменение питания от нормального*)
ScientificForm[dПит=Abs[215.6-Uсети]/Uсети]

(*5) Погрешность изменения напряжения питания с 215,6 В до Uсети*)
ScientificForm[ΔUпит=(dПит/10)*(0.00025*(Uизмер/100)+0.000025*(Uпредел/100))]

(*Рассчитаем коэф подавление на частоте f*)
kподавления=50+20*Log10[f/50]

(*6) Погрешность от наличия переменной cоставляющей*)
ScientificForm[ΔUперем=Uпеременной/(10^(kподавления/20))]

(*Полная систематическая погрешность однократного измерения составляет*)
ScientificForm[ΔUсист=(Sqrt[ΔUнелинейн^2+ΔUосновной^2+ΔUкалибровки^2+ΔUтемпер^2+ΔUпит^2+ΔUперем^2])]

(*Полная случайная погрешность однократного измерения составляет*)
ScientificForm[ΔUслуч=Uшума]

(*Полная погрешность однократного измерения составляет*)
ΔU=(Sqrt[ΔUсист^2+ΔUслуч^2])

(*Относительная погрешность однократного измерения в % составляет*)
δ=ΔU/Uизмер*100

(*Количество измерений, после которых ΔUперем=Uшума=0*)
n=Ceiling[(Uшума*2.5/6/ΔUсист)]

(*Погрешность после n измерений*)
ScientificForm[ΔUn=(Sqrt[ΔUнелинейн^2+ΔUосновной^2+ΔUкалибровки^2+ΔUтемпер^2+ΔUпит^2])]

(*Относительная погрешность многократного (после n) измерения в % составляет*)
ScientificForm[δ=ΔUn/Uизмер*100]

(*Влияние Rвых источника сигнала:*)
If[Uпредел==10,Rвых=10^10,Rвых=10^6]
Rвх=1000;
ScientificForm[N[q=Rвх/(Rвых+Rвх)]]

(*Реально измеряемое напряжение*)
ScientificForm[N[Uизмеряемое=Uизмер*(1-q)]]